home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
A-Monthly Disks
/
(c)abc.d64
/
autoboot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
7KB
|
204 lines
0 GOSUB 8000: GOSUB 9000: GOTO 12
1 GOSUB 9000:PRINT "";
2 OPEN 1,8,15
3 OPEN 3,8,0,"$0:*=P"
4 SYS 49152
5 CLOSE 3
6 PRINT#1,"S0:BOOT.DATA"
7 OPEN 3,8,3,"0:BOOT.DATA,S,W"
8 SYS 49155
9 CLOSE 3
10 CLOSE 1
11 END
12 OPEN 1,8,15,"I0"
13 OPEN 3,8,3,"BOOT.DATA"
14 PRINT "";: SYS 49158
15 CLOSE 3
16 SYS 49161
17 IF PEEK(198)=1 THEN PRINT "";
18 CLOSE 1
19 END
7990 :
8000 POKE 45,PEEK(174)
8001 POKE 46,PEEK(175)
8003 POKE 47,PEEK(45)
8004 POKE 48,PEEK(46)
8005 POKE 49,PEEK(45)
8006 POKE 50,PEEK(46)
8011 S=54272
8015 FOR T=0 TO 24:POKE S+T,0:NEXT T
8020 POKE 646,0
8030 POKE 53281,7:POKE53280,7
8045 :
8050 PRINT "[147]";CHR$(142);
8060 FOR I=1 TO 7
8070 PRINT SPC(7);
8080 FOR J=1 TO 26: PRINT "[192]";: NEXT J
8090 PRINT
8100 NEXT I
8110 PRINT ""
8120 PRINT SPC(15);
8130 PRINT " TPUG INC."
8140 PRINT SPC(8);
8150 PRINT " 5334 YONGE ST.,STE.116"
8180 PRINT SPC(9);
8190 PRINT " WILLOWDALE, ONTARIO "
8200 PRINT SPC(15);
8210 PRINT " M2N 6M2 "
8220 PRINT SPC(12);
8230 PRINT " (416)733-2933 "
8235 PRINT:PRINT
8240 PRINT "";
8250 FOR I=1 TO 7
8260 PRINT SPC(10);CHR$(18);
8270 FOR J=1 TO 20: PRINT " ";: NEXT J
8280 PRINT
8290 NEXT I
8300 PRINT "[145][145][145][145][145][145][145]"
8310 PRINT SPC(12);
8320 PRINT "THIS SOFTWARE IS"
8330 PRINT SPC(14);
8340 PRINT "PUBLIC DOMAIN"
8350 PRINT SPC(11);
8360 PRINT "IT IS OKAY TO COPY"
8370 PRINT SPC(13);
8380 PRINT "BUT NOT TO SELL"
8390 PRINT SPC(15);
8400 PRINT "FOR PROFIT"
8410 :
8440 PRINT "": GOSUB 8900
8505 :
8510 PRINT "[147]"
8520 PRINT SPC(9);
8530 PRINT "AUTOLOADER INSTRUCTIONS"
8540 PRINT SPC(14);
8550 PRINT "AVAILABLE ON"
8560 PRINT SPC(12);
8570 PRINT "*AUTOBOOT[146] PROGRAM"
8580 PRINT SPC(12);
8590 PRINT "MENU PRINTING IS"
8600 PRINT SPC(14);
8610 PRINT "AVAILABLE ON":PRINT
8620 PRINT SPC(11);
8630 PRINT "PRINTBOOTDATA[146] FILE";
8640 :
8710 PRINT "": GOSUB 8900
8720 RETURN
8760 :
8770 REM BELL SOUND
8780 S=54272
8791 POKE S+4,20
8800 POKE S+1,60:POKE S+5,9
8805 POKE S+5,60: POKE S+6,9
8810 POKE S+15,40:POKE S+24,15
8820 POKE S+4,21
8830 FOR T=1 TO 500:NEXT T
8840 POKE S+4,20
8850 RETURN
8860 :
8865 REM PRINT PAUSE MESSAGE
8880 PRINT SPC(8);"PRESS ";CHR$(A);
8885 PRINT "SHIFT";CHR$(146);
8886 PRINT " TO CONTINUE[145]"
8890 A=164-A: RETURN
8895 :
8896 REM WAIT FOR SHIFT
8900 A=18: REM REVERSE ON
8905 FOR QQ=1 TO 1500: NEXT QQ
8925 GOSUB 8880: REM PRINT PAUSE MSG
8926 GOSUB 8780
8927 GOSUB 8880
8930 FOR I=1 TO 100
8935 IF PEEK(653)<>1 GOTO 8945
8940 I=100: NEXT I: RETURN
8945 NEXT I
8947 GOTO 8927
8950 :
8990 REM INSTALL MACHINE LANGUAGE
9000 FOR I=319 TO 384
9001 READ A: POKE I,A: NEXT
9002 POKE 251, 0
9003 POKE 252, 192
9004 FOR I=0 TO 66: READ A$
9005 SYS 319,A$: NEXT: RETURN
9006 :
9007 DATA 32, 253, 174, 32, 158, 173
9008 DATA 32, 163, 182, 133, 36, 162
9009 DATA 0, 160, 255, 32, 102, 1
9010 DATA 10, 10, 10, 10, 133, 37
9011 DATA 32, 102, 1, 5, 37, 129
9012 DATA 251, 230, 251, 208, 236, 230
9013 DATA 252, 208, 232, 200, 196, 36
9014 DATA 240, 16, 177, 34, 201, 81
9015 DATA 176, 13, 201, 65, 144, 9
9016 DATA 233, 1, 41, 15, 16, 2
9017 DATA 104, 104, 96, 76, 8, 175
9018 :
9020 DATAEMLIMCEMAHMDEMIDMFEMIMMFAAAAAAAAAAAAAAAAAAAAAAAAAAAABNJNBBJBDPANIJLKMF
9021 DATAMCMFMOMFOOMFAOMGBGMHAGMEMEEJFDELCAEOEBENEFDKCAEBFFFEEPEMEPEBEECAEEEFFG
9022 DATAEFEMEPFAAAEBEECACACACACACACACAAAEFFEFFFCEOCACPMAAAEAAAABELMAIKMAKCMAKH
9023 DATAMAKLMALEMALNMANJMAPKMAAKMBBCMABEMABOMBDGMBGOMBAPMCFCMCHHMCJJMCKCMCBBFC
9024 DATAEFEBEEEJEOEHCAEEEJFCEFEDFEEPFCFJCOCOCOANANAABCCAJCJNAACAJNJNAAEJEOEDEM
9025 DATAFFEEEFCAAACACIFJCPEOCJDPCAAAFFFDEFCAFCEFEMEPEDEBFEEJEOEHCAEMEPEBEECACI
9026 DATAFJCPEOCJDPCAAAFDEFFBCOCAEEEPEDCOCAEGEJEMEFCAEBFGEBEJEMEBECEMEFCACIFJCP
9027 DATAEOCJDPCAAAFDEFFBCOCAEGEJEMEFEOEBENEFDKCAAAEEEFFDEDFCEJECEFCAFAFCEPEHFC
9028 DATAEBENDKCAANAAEJFDCAFEEIEJFDCAEDEPFCFCEFEDFECACIFJCPEOCJDPCAAAJDBCFEFAFF
9029 DATAEHCAEEEJFDELCAEBFFFEEPEMEPEBEEEFFCBBBBBBBBANFAEMEFEBFDEFCAFHEBEJFECOCA
9030 DATAFCEFEBEEEJEOEHCAEEEBFEEBCOCOCOAAJDFFFDEFCAEDFFFCFDEPFCCAEDEPEOFEFCEPEM
9031 DATAFDCAFEEPCAFDEFEMEFEDFECAFAFCEPEHFCEBENCMANBCFCEFFEFFFCEOJCCAFEEPCAEMEP
9032 DATAEBEECMCABCEGDCJCCAFEEPCAEFFIEJFECAFEEPCAECEBFDEJEDCOANANEJEGCABCCKJCCA
9033 DATAFAFCEFEDEFEEEFFDCAEGEJEMEFEOEBENEFCMCAFJEPFFCAEDEBEOCAFCEFEBEECAEBANEE
9034 DATAEPEDFFENEFEOFEEBFEEJEPEOCAEGEJEMEFCAECFJCAFAFCEFFDFDEJEOEHCABCDPJCCOAN
9035 DATAANAABDBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBNBNBNBNBNBNBNBN
9036 DATABNBNBNBNBNBNBNBNBNBNBNBNBNBNBNBNBNBNBNBNBNBNBNBNBCENEPFCEFJCDNDNDOAAJD
9037 DATAFFFDEFCAFDEIEJEGFECAFEEPCAFAEBFFFDEFCMCABCFPJCCAFEEPCAEBECEPFCFECOBBAN
9038 DATAAAANFAFCEFFDFDCAEBEOFJCAELEFFJCAFEEPCAFCEFFEFFFCEOCAFEEPCAENEFEOFFCOAA
9039 DATAJDBBBBEMEPEBEECCAAANBBBBBBBBFAEPELEFCADBDJDICMDADKCAFCFFEOBDAAKJAAINBA
9040 DATAMAKJAECAGNMECAJDMEIKNADLKJKAKAEAINAOMAIMAPMAKJDKKAMAIFCCIECDCAKPMEOAAA
9041 DATANACCKKPABPCAHGMFCAKPMEOAAANABFKKPABCOOBAMAJIGNAOMAINAOMAJAADOOAPMAEMOE
9042 DATAMCCAMMPPGALKIOBGMAKCADCAMJPPKJAACAGNMECAPAMECAPAMECAMMPPKJAACAGNMECAPA
9043 DATAMECAPAMEKJKAKAEAINAOMAIMAPMAKJAHCAGNMEKJIACAGNMEKJAICAGNMEKJABKICAALME
9044 DATACAPAMEKNAAEAMJEONAADEMPIMDMJFJNANKKJEOCMBBMADABMKJAJCAGNMEKJANKAABCAAL
9045 DATAMECAPAMEKNBCMAMJEOPAAJMJFJNAOGKJFCINBCMAKJAKCAGNMEKJAOKAABCAALMECAPAME
9046 DATAKNBEMAMJEOPABNMJFJNAOGKJCKINBEMAKJALCAGNMEKJADKABACAALMECAPAMEJIPAOONA
9047 DATAAKKJCAINBEMAKJAAINELMAKJAMCAGNMEKJABKAJPCAALMEIEAECAPAMECAPAMECADHMFKJ
9048 DATAAPCAGNMEKJACKAABCAALMECAPAMEKNAAABMJEOPABHMJFJNAODKCADCAMJPPCADHMFCAMM
9049 DATAPPCAFNMFMOBAMAPAAGCAPAMEEMDDMDKOBGMAJKGAIEACAKKKLNFMMALMFNMAIFCEIECFKA
9050 DATAAAKJAFCAGNMEIEAECAOEPPMJIJNAADEMAGMEKEAEMJANPADBMJBEPACBKKCJHPMJCAJAOD
9051 DATAIKMEACPANOJBCECANCPPMJCCNAAICANCPPKJBECANCPPMIEMBLMEJIPAMGKJAGCAGNMEII
9052 DATAEMBLMEKJCACANCPPKJAAJBCEGAIEAEAKLAANKKLNFMMALMFNMAIFCCIECDNAADCAHGMFKA
9053 DATAAALBCCPAAGCANCPPMINAPGIEAFKEAEGACAJIMEIFADKCADIEAECAMGPPCAOEPPIFACKFJA
9054 DATAINANMAKKKEAEKFACGACAJDMEIKNADCCAJDMEIKNACMKAAACAJIMEPACFOAAANACBMJCCNA
9055 DATAPDCAJIMEOAAANABGMJCCPAAFJBCCMINAPAKJAAJBCCCAJIMEPAAHOAAAPAPHKJAACMKJAB
9056 DATAKOANMAGAKJANCANCPPKFBDBAAFKJAKCANCPPGAKCABCAMGPPKAAAIEAECAOEPPKEAEJJAA
9057 DATAABMIMAEAPAAEKFJAPAONKJAAJJAAABCAMMPPKNAAABMJDCJAANMJDHNAAHKNABABMJDDPA
9058 DATAACDICEBIGAKJAOCAGNMEKJIACAGNMECAPAMEKJANCAGNMEKJADCAGNMECAPAMEKJABCAGN
9059 DATAMECAPAMECAPAMEGACAHGMFKAAALBCCPAADMINAPJJIDIGFCCINAOMAJAADOOAPMAGAEIKN
9060 DATAAOMAIFCCKNAPMAIFCDGIGAKJBACAGNMECAKLMHGALKIOBGMAKJABINBIMACAALMICAIBMI
9061 DATACAOEPPKCAGNNBKMAPAAFMKBAPIDAPBIKAKKKLNCBMAIFCCLNCCMAIFCDGMCCAACANMMIOO
9062 DATABHMANAAGCANMMIMOBHMACAGIMHEMJIMFCANMMIKJACIFACKNBHMAMNBJMANAAEKJABIFAC
9063 DATAOOBHMACAGIMHMGACNAOKEMJIMFCANMMIKJACIFACKNBHMAMNBIMANAAEKJABIFACMOBHMA
9064 DATACAGIMHMGACNAOKEMJIMFCAHGMFKAAALBCCMJCKPAADEMJIMFKJBDCAGNMECAFNMFCAHGMF
9065 DATAOGCCNAACOGCDKAAALBCCPAADMINAPJJIKGCCKECDCALNPPKOAMMAKJADKICALKPPCAMAPP
9066 DATACAPPMEJAAIKJACCAGNMEEMONMGKAAAIEACKJCHIFADKNINACNAPLCAMMPPCAOEPPMJFPPA
9067 DATAHHKCADCAMGPPKEACIEACCAOEPPKEACJJAAEAKGJAPAAGCAALMHEMOFMGMJANNAAGCAALMH
9068 DATAEMFHMGMJCANAACIEADMIIEACMACHNANFKEADMACHNABHKJAAIFACCAAMMHKJANCANCPPCA
9069 DATAOEPPMJCAPAPJKEACPALNKEADCAAMMHKJANCANCPPKEADMIMEACPAIJKCAALJAAEAJNAAEA
9070 DATAOIMIMEACNAPEJIBIOFADIFACEMFLMGCAMMPPKJADCAMDPPKJBECAGNMECAOEPPPAPLKNBH
9071 DATAMAEIKNBIMAINBHMACAALMIGIINBHMAEMJIMFMIKJAAJJAAEAKJABEMGNMEOOAOMANAADOO
9072 DATAAPMAKJBFCAGNMEKJIACAGNMEKJCCCANCPPKJCMCANCPPKNAMMAAJDACANCPPCAFNMFCAHG
9073 DATAMFKAAALBCCMJFCPAAOKJCMCANCPPKJDBCANCPPKAABNAAHKJBGCAGNMEKAAFIEMGKJANJJ
9074 DATAHGACIINAPKGAKNBHMAMNBIMALACEMJAANABMKNBJMAMNBAMAJAAEINBHMAGAKJABBIGJBK
9075 DATAMNBJMALAPIDIOJBKINBIMACAANMIGAKNBJMAMNBHMALAAOMNBAMAPAADCAALMIKNBIMAIN
9076 DATABHMAGAKCADCAMGPPKFLKINAMMAKJAAINBAMAKJDKKAMACAOKMHCAOEPPKJKAKAEAINAOMA
9077 DATAIMAPMAKCADIGAECAPBMHCAFNMFMGAENAPGCAOEPPOOBAMAKFJAPAOICAMMPPGAIFCCIECD
9078 DATAEMPEMHCAHGMFKAAAIEAFCAOEPPKEAFMJANPAAFJBCCMINAPAKJAAJBCCGABICEDIAIKJBB
9079 DATACAGNMEKNBIMAINBHMABIGJBJINBJMAMNBAMAJAAGKNBAMAINBJMACAGHMIKJIACAGNMEKN
9080 DATABHMAMNBJMAPAAFOOBHMANAOLKNBJMAMNBAMALAAFKJBCCAGNMEKNBJMACILAADKNBIMAIN
9081 DATABHMACAGHMIGACAFNMFCAFNMFCAFNMFGAKJKAKAEAINAOMAIMAPMAKOBHMAMKPAAGCAFNMI
9082 DATAEMHEMICALAMIGACAGHMIKJBDCANCPPKCBEKJBBCANCPPMKNAPKCAFNMFCAFNMFKJIACAGN
9083 DATAMEKEAFKJCAMAJPPAAGCANCPPMINAPGCANJMIGAKJBDCANCPPKJBBKCAGCANCPPMKNAPKDI
9084 DATAKNBHMAONBIMAPABAIFAEKJBNKCBECANCPPMKNAPKMGAENAPEGAKJBCCMKJJCCANCPPCAGH
9085 DATAMIKJBNCANCPPOOAOMANAADOOAPMAKJIACAGNMEKNAOMANAADMOAPMAMOAOMAKJJCCANCPP
9086 DATAGA